
   Imports System.IO
Public Class FileDemoTest
    Public Shared Sub Main()
        Dim SourceFileName As String = "File.TXT"
        Dim DestFileName1 As String = "C:\TEMP\File.BAK"
        Dim DestFileName2 As String = "C:\TEMP\File.txt"
        If  File.Exists(DestFileName1) Then
             File.Delete(DestFileName1)
        End If
        File.Copy(SourceFileName, DestFileName1)
        File.Move(SourceFileName, DestFileName2)
    End Sub
End Class
